<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Cindy JS</title>

<script type="text/javascript" src="../build/js/Cindy.js"></script>

<link rel="stylesheet" href="../css/cindy.css">
</head>

<body style="font-family:Arial;">

<h1>Discrete Asymptotic Line Helicoid</h1>


<script id='mouseDrag' type='text/x-cindyscript'>
if((mover()!=S) & (mover()!=T),
   xx=mouse().x;
   yy=mouse().y;
   wy=(startx-xx)*.3;
   wx=-(starty-yy)*.3;

   mmmx=[
       [1,0,0],
       [0,cos(wx),sin(wx)],
       [0,-sin(wx),cos(wx)]
       ];


   mmmy=[
       [cos(wy),0,-sin(wy)],
       [0,1,0],
       [sin(wy),0,cos(wy)]
       ];



   mat=mmmx*mmmy*mat;

   startx=mouse().x;
   starty=mouse().y;
   );
</script>

<script id='mouseUp' type='text/x-cindyscript'>

if((mover()!=S) & (mover()!=T),
   xx=mouse().x;
   yy=mouse().y;
   wy=(startx-xx)*.3;
   wx=-(starty-yy)*.3;

   mmmx=[
       [1,0,0],
       [0,cos(wx),sin(wx)],
       [0,-sin(wx),cos(wx)]
       ];


   mmmy=[
       [cos(wy),0,-sin(wy)],
       [0,1,0],
       [sin(wy),0,cos(wy)]
       ];



   mat=mmmx*mmmy*mat;
   );
</script>

<script id='mouseDown' type='text/x-cindyscript'>

startx=mouse().x;
starty=mouse().y;
</script>




<script id='init' type='text/x-cindyscript'>



v=[
[-0.14732304341498476,0.9279173990186268,0.3681418838293748],
[-0.10124240993594731,0.9598229899661044,0.2731387231047572],
[0.012459150421186727,0.9596280159777599,0.315968827932707],
[-0.040853778604799926,0.9085357870529414,0.4263561546969176],
[-0.19663398659219378,0.9599865550316752,0.2372058808448415],
[-0.23587496871296304,0.9440059182835869,0.3198593193730916],
[-0.17156143214324976,0.9759850305998774,0.14928587393950177],
[-0.07307297616999663,0.9917861697454472,0.1712599272962893],
[0.04538534139889422,1.0107730556556975,0.1978464261388108],
[0.051151823175577385,1.0575648374433446,0.0736284020852754],
[-0.06428369211740245,1.0206430558287882,0.06503144911003123],
[-0.16118000342027883,0.9896287598287796,0.05806863564947533],
[-0.1651544089976122,0.9986808048119244,-0.03421771079238629],
[-0.07374210628598302,1.0436634301058174,-0.042555969800945365],
[0.03619038815591202,1.0977268309083634,-0.052133271428265],
[-0.003976103524543917,1.1254932760682455,-0.17569903879343224],
[-0.10118577524136303,1.0578388400242063,-0.14857637160701886],
[-0.18276251567217508,1.0010279639286086,-0.12531627763971695],
[-0.21245988537493604,0.9949614251626315,-0.21304176368397762],
[-0.14399597357732336,1.061319699736947,-0.250309332558067],
[-0.06159771723696478,1.1411115790916355,-0.29439461316382504],
[-0.13811134410047393,1.1384354697811148,-0.40298249399029],
[-0.200286759588991,1.0517464188583254,-0.34482990482139964],
[-0.25237618807868856,0.9789991989824594,-0.2952998456357129],
[-0.3000247816571216,0.9522561273782109,-0.37032595586393546],
[-0.26640603010178143,1.0284696618250653,-0.4301579749911596],
[-0.2257893588896277,1.120193265012149,-0.5011283834115745],
[-0.3227798310170523,1.0809209342056445,-0.5830023512632969],
[-0.3391703535139738,0.9901866314606029,-0.5038751081049331],
[-0.35271062092942757,0.914137593058947,-0.4365504080532046],
[-0.40743485308078214,0.8647350450594651,-0.4929343900934346],
[-0.4145256173648622,0.9375605888391672,-0.5650839999597493],
[-0.4227134408885563,1.0253561072488273,-0.6506680275965455],
[-0.520769761707367,0.9496617775242658,-0.698711235384372],
[-0.4885413041081128,0.8705709490218567,-0.6122910642008252],
[-0.46114361853377805,0.8044441588384112,-0.538704293411031],
[-0.5108443498574108,0.7343173606130431,-0.5737267477946976],
[-0.5574624060317599,0.7910789215634588,-0.6458371133716253],
[-0.6130390225021727,0.8597657131611308,-0.7312365906819187],
[-0.6925658139433408,0.7541213792851206,-0.7441818013503678],
[-0.6172909785710212,0.7003495527115939,-0.665411534200199],
[-0.553652501439728,0.6556721426076939,-0.5981580288563799],
[-0.5870992531670012,0.5703397352624967,-0.6127932164971218],
[-0.6652203430676862,0.6011201429521309,-0.6725342150487331],
[-0.758576025244669,0.6388216688670667,-0.7429828056793907],
[-0.8031819000613913,0.5148779055113701,-0.7256315670783996],
[-0.6978764102809726,0.49572268435701206,-0.6681312855438094],
[-0.6089681165141682,0.480331650895763,-0.6186914383219586],
[-0.6177408881847077,0.38794139764406177,-0.6174387649594932],
[-0.7138884756975328,0.38724230476219784,-0.6546269247196956],
[-0.8288788168772009,0.3874946239005807,-0.6979554266066563],
[-0.828212882952324,0.26001117871515866,-0.6603358278879823],
[-0.7110850258592549,0.2787846892576155,-0.6340478504561907],
[-0.6125040955479274,0.2950118328077114,-0.6114566133913336],
[-1.0502621677132393,1.3520210288357013,0.6191048534809971],
[-1.1472956619940349,1.3209900118939324,0.6118865585884838],
[-1.1686143516579164,1.426480320703029,0.5871518899915211],
[-1.070332384598233,1.4421658932057482,0.6092087629724219],
[-1.2646290633388588,1.2838953070789796,0.6034258493062271],
[-1.2863426198268249,1.4080056057341575,0.561082236704333],
[-1.2161575220587593,1.168400274595928,0.6477477024873407],
[-1.106890425625565,1.2216693052255043,0.6380335166727342],
[-1.0157190273016998,1.2665749402328546,0.6300778635168739],
[-0.9676332315785952,1.1877166009864268,0.6398744535721661],
[-1.0493115760423997,1.1307959353729373,0.6626828482538564],
[-1.1481572768153123,1.0625099260335271,0.6903675525207775],
[-1.0576271405544224,0.9723025706843781,0.7266984848214622],
[-0.9756589412706606,1.051111528162034,0.6828453539988676],
[-0.9073466904540325,1.1173495453766313,0.6462668976231455],
[-0.8369209527055289,1.0568009806096976,0.6472346077410039],
[-0.8891349202406188,0.9838934540589636,0.6961193839320235],
[-0.9524599357469897,0.8962702384387546,0.7551973226550094],
[-0.8328842082114747,0.8403319007729986,0.7702155035504968],
[-0.7923312702683112,0.9310113308618473,0.6997756930640064],
[-0.758691609375162,1.007132719000748,0.6409036283731888],
[-0.6754643345740287,0.9687511510862972,0.6258396670230387],
[-0.6891840381725747,0.8924589944276888,0.6923437618232797],
[-0.7060939274662482,0.8006879335237822,0.772625743958572],
[-0.5755078525521929,0.7820745258068852,0.7566945223137181],
[-0.5833287664341252,0.8689107777965502,0.6718262096262009],
[-0.5901799331963686,0.9417575817034812,0.6008445164876104],
[-0.5059030667960049,0.9255673465854963,0.5653181543201427],
[-0.4787546002399409,0.8590780292179712,0.6379379474040817],
[-0.44637720696115646,0.7790573908875265,0.7255595486935502],
[-0.32471982564442714,0.7943709686165865,0.6743937653855551],
[-0.3795122336908864,0.8623232295290907,0.5897587829154629],
[-0.4256711910253582,0.9193037520417777,0.5189452476964984],
[-0.3522781015194322,0.9214921391512968,0.46206384334337713],
[-0.2889541144722956,0.8762980994836931,0.5282382953351348],
[-0.21293614574869915,0.8218860038576599,0.6080572507200555],
[-0.11860255914439714,0.861862450840049,0.5234639650164562],
[-0.21084567261871928,0.8991634522623855,0.45369262881605527],
[-0.288332757775555,0.9304294233060448,0.39529598651069875],
[-0.3108435998643375,0.9576311720534529,0.27899932063032656],
[-0.27751390086354166,0.9601252495469208,0.20673931307840374],
[-0.34743790267581887,0.9602451563143732,0.1803997024271822],
[-0.3756419900939887,0.9694167367804319,0.24369124353771732],
[-0.3269764404611963,0.9510966712478548,0.11452730921101772],
[-0.2549246001153719,0.9626299658922326,0.1306425166720898],
[-0.24332309961065274,0.9633735201497498,0.052079670009090986],
[-0.31434141054093057,0.9406937421106781,0.0468983919460929],
[-0.3094169715407515,0.927824608180582,-0.021304728084367244],
[-0.24253253788824372,0.960659224622259,-0.02728826863618843],
[-0.25193891506140187,0.9529302036386039,-0.1057678569070606],
[-0.3117556529498362,0.9113835655455484,-0.08887507574540242],
[-0.3205875049359546,0.8904235181834708,-0.1546337505081768],
[-0.2704493243267805,0.9388651044764927,-0.18170729423839205],
[-0.2966027183073156,0.9173987753762781,-0.25355752815386723],
[-0.33486333758005005,0.8641916903387641,-0.21747975329922414],
[-0.3532922199700441,0.832169401738688,-0.2764414100382452],
[-0.32857904714780867,0.8878137399001634,-0.3199615799361546],
[-0.36432283975883023,0.8497207731689534,-0.37978269400390907],
[-0.3744045969646983,0.7940870683774459,-0.33071414892008316],
[-0.3966118024455907,0.7499440701491009,-0.37970154778238396],
[-0.4016016764016611,0.8031301793210124,-0.43219326148117176],
[-0.4381210382753208,0.7483959177829447,-0.47666534184772397],
[-0.418278042654061,0.7000004702896683,-0.42303448628430473],
[-0.437791541588616,0.6447739232108287,-0.4605949127696916],
[-0.4716220578362712,0.6862545350757494,-0.5130438351075315],
[-0.49996797830471745,0.617742040313833,-0.5415009694416101],
[-0.4536331293949258,0.5850093341663647,-0.4925130663608314],
[-0.46444668612637374,0.5216530481163639,-0.5191697062989199],
[-0.5212641262950912,0.544193659559943,-0.5625809699185895],
[-0.5339009132553751,0.46714823672112593,-0.5771263961796171],
[-0.4690923229349917,0.4558058941062639,-0.5411718656094454],
[-0.46670399907083693,0.38867927010017195,-0.5593332485918794],
[-0.5366754545537359,0.38830887996957675,-0.5862867110984279],
[-0.5289351335609366,0.308880987469072,-0.5921144424963829],
[-0.45675251093103364,0.3209965754022549,-0.5752625826563967],
[-0.8971283332233146,1.4010134675006984,0.6304911868650588],
[-0.9681212802167002,1.37829533325594,0.6252122867447306],
[-0.9869987509594884,1.4554575371760357,0.627900564085908],
[-0.9149526208473193,1.4669510538039157,0.6440509632355341],
[-0.9384230163536621,1.3046619766542469,0.6233389058878408],
[-0.8716002523439856,1.3375965028460746,0.6175224325429398],
[-0.8387427902222818,1.2775789080441833,0.603900083725596],
[-0.8984962076986144,1.2359142672172894,0.6205729512844379],
[-0.8494340772950447,1.173522508739141,0.615259934038931],
[-0.7993684137510638,1.2220933941152163,0.5884626985124555],
[-0.7545335548735699,1.1718916313087544,0.5701075746135206],
[-0.7927280632684787,1.1185306904842287,0.6058592789876268],
[-0.7301780507844517,1.071683951903755,0.5909955638922243],
[-0.7055286357322307,1.127498665151204,0.5478572876831195],
[-0.6538299399247777,1.0891809185650085,0.5209077192664028],
[-0.6638589964450384,1.0333444229044726,0.5695502216743199],
[-0.595997773016655,1.003530761814735,0.5406704485801207],
[-0.6010290271402656,1.056944306791344,0.4886563323871372],
[-0.5487667979938895,1.0305239028989464,0.4507366511083978],
[-0.5288939928165635,0.9818606327279051,0.5038530338813587],
[-0.4648165077373067,0.9676229411856081,0.45891529793814917],
[-0.4986608268870273,1.0094054637671306,0.40702528753200173],
[-0.4522328591052793,0.9928385561102308,0.35765671128979104],
[-0.4058920333396894,0.9597569919782104,0.4060564544595552],
[-0.3540390520878216,0.9569449696119581,0.34579539253199726],
[-0.41084674177559644,0.979877723919316,0.3030079147079814],
[-0.43317960753233037,0.9798915871117496,0.21233605096706956],
[-0.40953343290974087,0.9603516366141748,0.15700898150327822],
[-0.46659151844457913,0.960449475953799,0.13551580548431574],
[-0.48604023725714113,0.9895201723255402,0.18351246780414587],
[-0.44973670278123756,0.9314464159294491,0.0870227137181175],
[-0.39095518360090314,0.9408594653524297,0.10020407468859244],
[-0.37740418372335405,0.9205615151012738,0.04227088309457634],
[-0.43533980025988994,0.9020494009187445,0.03797799103886036],
[-0.42336521566557245,0.8718776331826866,-0.011247105158645252],
[-0.3688073478939294,0.8986790021938826,-0.016031234363292582],
[-0.3648759261051067,0.8745020994599979,-0.07392689246201359],
[-0.41367163530976214,0.8405840989692908,-0.06027347320440836],
[-0.4060179189285918,0.8078709071315253,-0.10873068149099413],
[-0.3651164573135136,0.8474216812316834,-0.13065851175058915],
[-0.3688538742749588,0.8169549933667207,-0.18551922057760767],
[-0.40007388636215946,0.7735021187725492,-0.15627316498967914],
[-0.395434553732481,0.7373142394165151,-0.2025953798089749],
[-0.37525969565722683,0.7827678408189483,-0.23788417366088177],
[-0.3833892399286147,0.744688040213919,-0.28723722197533497],
[-0.3916379889833872,0.6992231613680091,-0.24744500725646862],
[-0.388185356903559,0.6592280754284836,-0.29063421824071684],
[-0.3922222205612697,0.7027141909029999,-0.3331943792896714],
[-0.40070772348172085,0.6570143823836178,-0.37551945043644686],
[-0.38456283412389763,0.6174113147415096,-0.33204765885405413],
[-0.38026403004872267,0.5739349059086938,-0.3716476338988152],
[-0.40781005917003726,0.6079202098951291,-0.41413559037764985],
[-0.4125537634850633,0.5559110348677585,-0.44912745888092775],
[-0.3748120473007715,0.5290333030171204,-0.40947562681039257],
[-0.36778046201047465,0.48300333609198515,-0.44565068196508156],
[-0.4140668729784822,0.501594146908894,-0.4807387198903895],
[-0.41161808185850096,0.44567727248601213,-0.50936022065184],
[-0.35881182871636497,0.43619111666322263,-0.48036398558561233],
[-0.3476334579449363,0.38897695624666884,-0.513870689962848],
[-0.40464987424736987,0.38893833371278214,-0.5355139583574428],
[-0.39275144969897513,0.33179238678209044,-0.5602761529619613],
[-0.334023978605695,0.3416120533043689,-0.5466374522089613],
[-0.7761679103492426,1.4397475690492065,0.639507967234967],
[-0.8340895154081616,1.4211967787426765,0.6351846178935731],
[-0.8509752124633329,1.4771711352316508,0.6583897263482678],
[-0.7921938499261307,1.4865820395097276,0.6715729812675851],
[-0.8122574204391619,1.3668405618272028,0.6123665278994729],
[-0.7577230257731847,1.3936981039493488,0.6076320740366994],
[-0.7369112741618342,1.3485563660507573,0.5755108255713435],
[-0.7856785162446238,1.3145748649298334,0.5891037505167901],
[-0.7549033683525255,1.2652251062261852,0.5646743898511514],
[-0.7140352371111638,1.304846384347356,0.5428182609422931],
[-0.6894282873400032,1.2628068472705662,0.509205020469881],
[-0.7206108834339748,1.2192762420399086,0.538368068580178],
[-0.6836320791293805,1.177065833607017,0.5095558356439923],
[-0.6634983517315758,1.222604206286455,0.4743616413850954],
[-0.6367121081165192,1.184323726345521,0.4380329506482789],
[-0.6449166507352208,1.13876663786126,0.4777191023403482],
[-0.6054892955545463,1.1043819805194706,0.4424703996545917],
[-0.6095729740589586,1.147967658269976,0.40002803146576726],
[-0.5826001961214307,1.1134531130473209,0.36022997873513873],
[-0.5664063518778428,1.0737425573416626,0.40357265984945206],
[-0.5287089708898755,1.0465168962901559,0.36094685554173556],
[-0.556305604669725,1.0806177108482,0.31859942081580817],
[-0.5311712815162386,1.0492247731151942,0.2751780754665353],
[-0.49337744092225044,1.0222228868967247,0.3146784001669458],
[-0.46128939778521333,1.0002516321539745,0.26501043906868793],
[-0.5076289848010826,1.0189754729836709,0.23008476034493328],
[-0.536606208100842,0.9987254046778207,0.1559145227915667],
[-0.5211842980881491,0.9605430851476982,0.11495128041560511],
[-0.5757770765384311,0.9606366923345553,0.09438675440241526],
[-0.5871649104048444,1.0079124297385298,0.1282972057424158],
[-0.5622011409205889,0.9133751368701887,0.06175162203424143],
[-0.5059712833298813,0.9224222251000614,0.0743919793857855],
[-0.49075798808749116,0.8843014193945198,0.03383275738370757],
[-0.5461646781531886,0.8665079738859167,0.029668739959722572],
[-0.5277033014053814,0.8204164430395924,-0.002233530014006054],
[-0.4755444081460405,0.8461807293232574,-0.006726420974124951],
[-0.4603305657554714,0.8080601713927124,-0.047285615978642864],
[-0.5069584901328248,0.7754478797834075,-0.03433472698166407],
[-0.4841716320938412,0.7319005270824434,-0.06700567041836675],
[-0.4451164852697229,0.7699397961060553,-0.0878448664167965],
[-0.4299022065568454,0.7318196164603238,-0.12840422036970056],
[-0.45967325802240844,0.6900105555117008,-0.10059231645332167],
[-0.43386878903934273,0.6499416340712552,-0.1354005486881904],
[-0.41468777129713075,0.6936996669240949,-0.1689637238484144],
[-0.39947324102110005,0.6555799452774901,-0.2095234128302242],
[-0.4072206604517818,0.6117779478152395,-0.17168293693136544],
[-0.38022821637533755,0.5755202646804222,-0.20962753735707165],
[-0.3842586667316358,0.6174604066581174,-0.2500832813971668],
[-0.36904409284120554,0.5793410570723897,-0.2906433585383617],
[-0.35340582433598344,0.5410861648043073,-0.24934980821136268],
[-0.32726043796798493,0.5083135023629706,-0.29088747293298634],
[-0.3538296112739649,0.5412219277552403,-0.33120366065164947],
[-0.3386152721502964,0.5031029692880348,-0.37176415773921656],
[-0.30226947108898183,0.4769675731959759,-0.33419900554686893],
[-0.2788597817298877,0.44675120855026795,-0.37916522414027204],
[-0.32340110382936865,0.4649841396606753,-0.4123248327272149],
[-0.30818714483811077,0.42686540100829823,-0.452885674117113],
[-0.25738919822817946,0.4173179517420141,-0.42559473793333125],
[-0.2381307104570568,0.38828707422468156,-0.4732321648731964],
[-0.29297345016748916,0.3887467238655555,-0.49344665178305264],
[-0.27783116787755724,0.35077268742474543,-0.5338566471744656],
[-0.2215221256544514,0.3596420311933092,-0.5213857623311265],
[-0.6653297990305651,1.475229089799329,0.6478062665586222],
[-0.7207497769320501,1.45749343086266,0.6436551203524234],
[-0.7359593625145525,1.4956040985315093,0.6842056215327721],
[-0.6797302949122676,1.5046341584240726,0.6968616145314729],
[-0.7055366498467057,1.4193746718341897,0.6030939346045722],
[-0.6533430137934314,1.4450330432240575,0.5985364386285437],
[-0.6435637319833847,1.4135253376547643,0.5494634874693276],
[-0.69024113164438,1.3810499516796184,0.5624968340195277],
[-0.6749212166838691,1.3427372434067897,0.5218976244890621],
[-0.6357999220934699,1.38060990285259,0.5009576218366508],
[-0.629724409399812,1.3460537248980418,0.45336055475789117],
[-0.6595799809073167,1.304439389395076,0.4812924690500496],
[-0.6442204617105155,1.2661592553085663,0.44067753113121366],
[-0.6249353066227245,1.3096961056706875,0.4069740687336787],
[-0.6209752574044026,1.2714543680255583,0.3620473661500517],
[-0.6288473236361355,1.2278981499009802,0.40004985371849355],
[-0.6134651729504644,1.1896574101767479,0.3594064000314104],
[-0.6173500981910458,1.2313289350120533,0.3187653835279437],
[-0.6135514103851606,1.1894017774249783,0.2772418706492607],
[-0.5980794351690484,1.1514365501521735,0.31874558140586273],
[-0.5826955260734477,1.1132351667485774,0.2780658459562435],
[-0.6090781793619999,1.1458344251355947,0.23751288384289787],
[-0.603458833672878,1.1008592894838214,0.1995368599342583],
[-0.5673186914511655,1.07505113586483,0.2373671629345378],
[-0.5519542029227689,1.0368823765680777,0.19664947483010933],
[-0.5962721416983191,1.0547710657937976,0.16319482811518493],
[-0.6400060571028147,1.0174922350816433,0.09942173330047421],
[-0.6328351579926945,0.9607345262152526,0.07289357489451122],
[-0.6949306799118867,0.9608409994813517,0.04950284571684857],
[-0.6975175370469858,1.027901636866218,0.06799689510346849],
[-0.6849287780260316,0.893584455251044,0.03417585948942556],
[-0.6209693869570483,0.9039013442458386,0.04854225583833065],
[-0.6040686564896267,0.8478751947522501,0.025320986343755736],
[-0.6670869784769079,0.8275845296638163,0.020608456688308335],
[-0.6415211853542105,0.7640551439458242,0.0076163031143596654],
[-0.5822061244416253,0.793436099569958,0.0024692578801726577],
[-0.5556710185191287,0.7412949205973223,-0.02078953941056755],
[-0.6086797634809332,0.7041038238407644,-0.006009697118145398],
[-0.5693338781522645,0.6486794009412753,-0.021450515058182663],
[-0.5249575231851036,0.6920617723494753,-0.045214150143504384],
[-0.49074176765972555,0.6462201044742911,-0.0715125573891959],
[-0.5245346511165307,0.5985358230588764,-0.03980900777278561],
[-0.47557516147551687,0.5541927616074004,-0.06205858185765947],
[-0.4538535095893331,0.6041046212630082,-0.10031054823400298],
[-0.41523888076292137,0.5658877697336544,-0.13212506751323083],
[-0.4239275524138186,0.515920223955368,-0.08900516744671891],
[-0.3711832115699222,0.48371885689075406,-0.12124629560863236],
[-0.3759197244267431,0.5315709724883845,-0.1673407520429288],
[-0.33694856759128416,0.5009858168474779,-0.20619411466439758],
[-0.31898074690795264,0.4573280274711692,-0.15915162289209925],
[-0.268934749822219,0.43622929759573453,-0.20283947385835105],
[-0.2993626886464174,0.47380023013411304,-0.24876207647953458],
[-0.2641390429083903,0.4495341180818386,-0.29495986342885405],
[-0.2225669581601547,0.41967643474886585,-0.25217927571920645],
[-0.18123594124185533,0.40672154124506815,-0.30678973509730273],
[-0.23215098425286262,0.42757930796140153,-0.34454346525567203],
[-0.20413092796236587,0.40722696170492584,-0.3971214055203334],
[-0.1460834907840596,0.39626184043971047,-0.36606267961265465],
[-0.11797717987162198,0.38708384011046143,-0.4291830455820914],
[-0.18063720161552782,0.3876979635934422,-0.45217091149086813],
[-0.16248328176347704,0.3686813433093892,-0.5085773385814747],
[-0.0980644397993025,0.37843013502582723,-0.49470489165936843],
[-0.5443601794320658,1.5139103314868598,0.6568456523813756],
[-0.6074037687875529,1.4937548367530384,0.6521398772496719],
[-0.6209639804235629,1.5140687985344903,0.7101070140320385],
[-0.5570079152119161,1.5243265206287668,0.7245277372759823],
[-0.5987891925904606,1.4718418127084922,0.5937501185290719],
[-0.5394203026424654,1.5010204232742956,0.588524619463567],
[-0.5416867124950744,1.4843885862139439,0.5209527823686048],
[-0.5947770549463212,1.4474580783301179,0.5358187047438195],
[-0.5949123320528845,1.420182420305649,0.4790496260646994],
[-0.5504212145798631,1.4632486991600004,0.45519174741836593],
[-0.5645735548614466,1.436854756034762,0.3923365292973298],
[-0.5985223429971086,1.389535569490805,0.42414564178059755],
[-0.6047821031267564,1.35518571226947,0.3717279884956527],
[-0.5828594197863359,1.4046874429144967,0.33335689544588737],
[-0.6038118280646835,1.3664829373460863,0.27905109947623163],
[-0.6127512374901805,1.3169626754668273,0.32230930340036634],
[-0.6214142916302838,1.2748658167595903,0.27627114313161005],
[-0.6258484273633941,1.3222380436159853,0.2300156060331626],
[-0.6473391815880986,1.2722167464920584,0.18661369059450694],
[-0.6297257729275693,1.229063543275462,0.2338473256643367],
[-0.6366553465701564,1.1798864679236964,0.1951135764939425],
[-0.6666773442241604,1.21693243043257,0.14896553785820063],
[-0.6823516459319712,1.1571312746916276,0.11693671058106582],
[-0.6412331972290908,1.1278123972558647,0.15998461808084957],
[-0.642592245261968,1.073446122287643,0.12821724671382845],
[-0.6930087674067,1.093754585626239,0.09015011475219831],
[-0.7622889627459488,1.0396196153182655,0.03261685382603611],
[-0.7648546669415627,0.9609609008112963,0.02316321739041494],
[-0.8457345814925642,0.9610995971367849,-0.0073033929088440475],
[-0.8372336863184132,1.0531849619190012,-0.008306901823524684],
[-0.8402994566379199,0.8685511870194401,-0.0006894146503956464],
[-0.7569584639628714,0.8819720818011766,0.018008291886514004],
[-0.7380567971838269,0.8047472703785599,0.015323422433846452],
[-0.8201545392925544,0.7783605289012611,0.009226010957508931],
[-0.7856324890280647,0.6927684123414888,0.02021216419084753],
[-0.7083261918898008,0.730986113496926,0.013445036310481167],
[-0.6683822309855061,0.6622477590651005,0.010676869290469019],
[-0.7374593710066828,0.6138897221697998,0.03000904352846058],
[-0.6771791034405167,0.5434372021249653,0.03642788495630454],
[-0.619319096396189,0.5998560487974925,0.005364347256152521],
[-0.5626006900737006,0.5448774618901251,-0.004043938088438115],
[-0.6066668776672566,0.48289298676072057,0.03737236993269449],
[-0.5284109035506109,0.4331456145327387,0.031074150518232965],
[-0.5000496489762405,0.498031120992658,-0.018907469549915866],
[-0.4337250888118666,0.459706434114045,-0.040364553695674814],
[-0.44511128198802763,0.3947881963907925,0.015963055719530217],
[-0.35977024955325815,0.3677314232199124,-0.009003081401125525],
[-0.3658629261086597,0.4298934548358645,-0.06924451438256887],
[-0.2987614335788533,0.4082371621200253,-0.10607572435973578],
[-0.275445924419751,0.3515768000968905,-0.04459677524761515],
[-0.19513556155473333,0.3452726840399486,-0.09095382649894362],
[-0.2346832885780707,0.39400033824916014,-0.15101396654493265],
[-0.17576853999867886,0.386144905170414,-0.20388631103451],
[-0.12172655468178031,0.34749788163915296,-0.14791552937125288],
[-0.05769279429432346,0.3564201758715105,-0.2146878162008937],
[-0.12391526717182963,0.38333376023719345,-0.26414802954251115],
[-0.08073528456683743,0.38402530461990386,-0.33095484090734467],
[-0.005251637915310095,0.37002411317788636,-0.29020817661685494],
[0.03407401915490482,0.38601376489264383,-0.3728900257115375],
[-0.04743397662753257,0.38651377710944795,-0.4031556995325565],
[-0.02545031505534618,0.3894642507119813,-0.47900364229216824],
[0.05850107469977228,0.40237489244771346,-0.4606813001368585],
[-0.3912209326889799,1.5628725118019813,0.6682474788545596],
[-0.4733637753057978,1.5366078778103212,0.6621346545818527],
[-0.48498529912329336,1.5358670548154416,0.7407601287666262],
[-0.40167364394522354,1.549208964607312,0.759521053042745],
[-0.47257063991781323,1.5338873532896777,0.5826362624491582],
[-0.39525086789177694,1.571914441727498,0.5758336011678408],
[-0.4127455382980743,1.5741233565192385,0.48484284195667515],
[-0.4819063820810533,1.5259856304541122,0.5042080488112584],
[-0.5003286128009153,1.5117519959808365,0.4283226277349499],
[-0.4423921589640842,1.5678650215143377,0.39725193913779117],
[-0.4821353768937273,1.551817879183486,0.31507390053360906],
[-0.5263521131724158,1.4901481208241139,0.3565129159663545],
[-0.5581830459050293,1.4604345776570962,0.29014673315713474],
[-0.529645626226104,1.5249258844472013,0.24017497294556295],
[-0.5821265533709012,1.4867852441672098,0.17398349246468364],
[-0.5937557925220459,1.4222518631711458,0.2303366904998962],
[-0.6308527054879414,1.375584016730691,0.17792956049783007],
[-0.6366466386791942,1.4372972957059276,0.11769174477561095],
[-0.6901520199911931,1.3770458114228228,0.07189651974005926],
[-0.6671850074877956,1.320812429189848,0.13342538881303667],
[-0.7004946670452102,1.2586473612015867,0.09700359194748198],
[-0.739616064071791,1.306906647208618,0.03690988714197199],
[-0.7822554727178636,1.2283501884863255,0.012393887459733043],
[-0.7286654765599974,1.1901452382570876,0.06846505214293522],
[-0.7497894839041125,1.116619747571057,0.04729073023018192],
[-0.8154718425245621,1.1430753837221608,-0.002273626818518209],
[-0.9257664010443846,1.0692254411814728,-0.05664064514053409],
[-0.941129640174604,0.9613177244149571,-0.043250134270333376],
[-1.0548311554229846,0.9615127216954176,-0.0860802930197187],
[-1.0321202608643225,1.0888428282174043,-0.11491691691999811],
[-1.0572194624474491,0.8338376796791589,-0.04938757718244469],
[-0.9387611560272198,0.852824534528032,-0.022800970401964604],
[-0.9170239409561858,0.7474333799021882,0.001997602883054221],
[-1.0324594237569742,0.7105116256025861,-0.006599418725905262],
[-0.9869597861211642,0.5938184960461458,0.03773390659731136],
[-0.877027377010914,0.647881839092727,0.028156636279887938],
[-0.8190547973368497,0.5571680162017913,0.052752109656462084],
[-0.9162644489271464,0.4895136388218578,0.07987468905082781],
[-0.8281036911572957,0.3973633474354024,0.11714313457124215],
[-0.7457054509077756,0.4771551273659418,0.0730580091231763],
[-0.6588810115277566,0.4101875321545719,0.0861577367845438],
[-0.7210564355979677,0.323498580745159,0.14431016850308603],
[-0.602837845216841,0.26520840407416485,0.16102982889144696],
[-0.5622211496912701,0.356931913807615,0.09005956406234383],
[-0.4589170794191375,0.3186735200726233,0.08235862242778172],
[-0.4753075927500302,0.2279392742859869,0.16148584210517403],
[-0.3448316898230538,0.20697179890782583,0.14772586386568892],
[-0.3530195373224733,0.2947672343103568,0.06214184156299574],
[-0.24845747187015213,0.28521695501457595,0.027931896220691296],
[-0.21622899418726663,0.20612621111955637,0.11435207161990205],
[-0.09341576557972693,0.21949063563387425,0.06545176713441825],
[-0.14899239834668943,0.28817732796096274,-0.019947716181027197],
[-0.05861165288642256,0.30237020382231394,-0.08179130752430583],
[0.01666319896058957,0.24859847739850252,-0.0030210262194250576],
[0.1132186948616532,0.2873676338136673,-0.08564616273879395],
[0.019862992430471904,0.3250690500026835,-0.1560947735149959],
[0.08307528478362496,0.3539346955728542,-0.24191856361159575],
[0.18838079348089343,0.3347795819499612,-0.18441824798916434],
[0.24462374427085926,0.3856336405739483,-0.2935214886754234],
[0.1296310592214419,0.3858308778907643,-0.3368380238558282],
[0.15738640932526493,0.41777828003967354,-0.43889603033298685],
[0.2745142907562025,0.4365518645439751,-0.41260801065726893],
[-0.17743743381170363,1.6312612167786615,0.6841072240960088],
[-0.2941849351667513,1.5939037215337661,0.6754664599636604],
[-0.3034083913413428,1.564942919058399,0.7816296915712394],
[-0.18628043747381928,1.5837165151730392,0.8079177275045245],
[-0.3040605851129007,1.6167718417885732,0.567826855975985],
[-0.1952911445479006,1.6700504501256157,0.558602436962234],
[-0.23260352143364976,1.6992701762912037,0.43479288887517015],
[-0.3310482444875049,1.6309957757628504,0.4619833731269965],
[-0.374060913784932,1.634054763029568,0.36062246852872065],
[-0.2924067784127989,1.7128370982674967,0.3172585288265901],
[-0.36679497245400805,1.712280463763653,0.20752746708444697],
[-0.42990233757383634,1.6246771437891139,0.26613812289372574],
[-0.4959868285209233,1.600999037275013,0.18125188639322987],
[-0.4555683889595401,1.6916670683144626,0.11125083191515256],
[-0.5515311970822925,1.6548181117527496,0.027536328286829392],
[-0.5683876812765566,1.5630291828368652,0.10742838128420379],
[-0.6434785729332745,1.5100959337937176,0.04665899107008753],
[-0.6512862022517275,1.5969764654421152,-0.03787092706861621],
[-0.7495919254116642,1.523594537525469,-0.08812931670605811],
[-0.717281237390162,1.4434869998459787,-0.000774352828444444],
[-0.7857557724326236,1.3638390811688623,-0.033954761230750585],
[-0.840441124003587,1.431913807474099,-0.11839310897472982],
[-0.9214529587928422,1.3280751831031057,-0.13354075129198356],
[-0.8455602475555106,1.273496180403668,-0.05383171536265527],
[-0.8929397050565828,1.174293315657455,-0.060721449022727414],
[-0.9850488463681557,1.211795683621653,-0.13046373122172877]
];



f =[[1,2,3,4],[5,2,1,6],[7,8,2,5],[9,3,2,8],[10,9,8,11],[12,11,8,7],[13,14,11,12],[15,10,11,14],[16,15,14,17],[18,17,14,13],[19,20,17,18],[21,16,17,20],[22,21,20,23],[24,23,20,19],[25,26,23,24],[27,22,23,26],[28,27,26,29],[30,29,26,25],[31,32,29,30],[33,28,29,32],[34,33,32,35],[36,35,32,31],[37,38,35,36],[39,34,35,38],[40,39,38,41],[42,41,38,37],[43,44,41,42],[45,40,41,44],[46,45,44,47],[48,47,44,43],[49,50,47,48],[51,46,47,50],[52,51,50,53],[54,53,50,49],[55,56,57,58],[59,60,57,56],[61,59,56,62],[63,62,56,55],[64,65,62,63],[66,61,62,65],[67,66,65,68],[69,68,65,64],[70,71,68,69],[72,67,68,71],[73,72,71,74],[75,74,71,70],[76,77,74,75],[78,73,74,77],[79,78,77,80],[81,80,77,76],[82,83,80,81],[84,79,80,83],[85,84,83,86],[87,86,83,82],[88,89,86,87],[90,85,86,89],[91,90,89,92],[93,92,89,88],[6,1,92,93],[1,4,91,92],[94,95,5,6],[96,95,94,97],[98,99,95,96],[7,5,95,99],[12,7,99,100],[101,100,99,98],[102,103,100,101],[13,12,100,103],[18,13,103,104],[105,104,103,102],[106,107,104,105],[19,18,104,107],[24,19,107,108],[109,108,107,106],[110,111,108,109],[25,24,108,111],[30,25,111,112],[113,112,111,110],[114,115,112,113],[31,30,112,115],[36,31,115,116],[117,116,115,114],[118,119,116,117],[37,36,116,119],[42,37,119,120],[121,120,119,118],[122,123,120,121],[43,42,120,123],[48,43,123,124],[125,124,123,122],[126,127,124,125],[49,48,124,127],[54,49,127,128],[129,128,127,126],[130,131,132,133],[55,58,132,131],[63,55,131,134],[135,134,131,130],[136,137,134,135],[64,63,134,137],[69,64,137,138],[139,138,137,136],[140,141,138,139],[70,69,138,141],[75,70,141,142],[143,142,141,140],[144,145,142,143],[76,75,142,145],[81,76,145,146],[147,146,145,144],[148,149,146,147],[82,81,146,149],[87,82,149,150],[151,150,149,148],[152,153,150,151],[88,87,150,153],[93,88,153,154],[155,154,153,152],[97,94,154,155],[94,6,93,154],[156,157,96,97],[158,157,156,159],[160,161,157,158],[98,96,157,161],[101,98,161,162],[163,162,161,160],[164,165,162,163],[102,101,162,165],[105,102,165,166],[167,166,165,164],[168,169,166,167],[106,105,166,169],[109,106,169,170],[171,170,169,168],[172,173,170,171],[110,109,170,173],[113,110,173,174],[175,174,173,172],[176,177,174,175],[114,113,174,177],[117,114,177,178],[179,178,177,176],[180,181,178,179],[118,117,178,181],[121,118,181,182],[183,182,181,180],[184,185,182,183],[122,121,182,185],[125,122,185,186],[187,186,185,184],[188,189,186,187],[126,125,186,189],[129,126,189,190],[191,190,189,188],[192,193,194,195],[130,133,194,193],[135,130,193,196],[197,196,193,192],[198,199,196,197],[136,135,196,199],[139,136,199,200],[201,200,199,198],[202,203,200,201],[140,139,200,203],[143,140,203,204],[205,204,203,202],[206,207,204,205],[144,143,204,207],[147,144,207,208],[209,208,207,206],[210,211,208,209],[148,147,208,211],[151,148,211,212],[213,212,211,210],[214,215,212,213],[152,151,212,215],[155,152,215,216],[217,216,215,214],[159,156,216,217],[156,97,155,216],[218,219,158,159],[220,219,218,221],[222,223,219,220],[160,158,219,223],[163,160,223,224],[225,224,223,222],[226,227,224,225],[164,163,224,227],[167,164,227,228],[229,228,227,226],[230,231,228,229],[168,167,228,231],[171,168,231,232],[233,232,231,230],[234,235,232,233],[172,171,232,235],[175,172,235,236],[237,236,235,234],[238,239,236,237],[176,175,236,239],[179,176,239,240],[241,240,239,238],[242,243,240,241],[180,179,240,243],[183,180,243,244],[245,244,243,242],[246,247,244,245],[184,183,244,247],[187,184,247,248],[249,248,247,246],[250,251,248,249],[188,187,248,251],[191,188,251,252],[253,252,251,250],[254,255,256,257],[192,195,256,255],[197,192,255,258],[259,258,255,254],[260,261,258,259],[198,197,258,261],[201,198,261,262],[263,262,261,260],[264,265,262,263],[202,201,262,265],[205,202,265,266],[267,266,265,264],[268,269,266,267],[206,205,266,269],[209,206,269,270],[271,270,269,268],[272,273,270,271],[210,209,270,273],[213,210,273,274],[275,274,273,272],[276,277,274,275],[214,213,274,277],[217,214,277,278],[279,278,277,276],[221,218,278,279],[218,159,217,278],[280,281,220,221],[282,281,280,283],[284,285,281,282],[222,220,281,285],[225,222,285,286],[287,286,285,284],[288,289,286,287],[226,225,286,289],[229,226,289,290],[291,290,289,288],[292,293,290,291],[230,229,290,293],[233,230,293,294],[295,294,293,292],[296,297,294,295],[234,233,294,297],[237,234,297,298],[299,298,297,296],[300,301,298,299],[238,237,298,301],[241,238,301,302],[303,302,301,300],[304,305,302,303],[242,241,302,305],[245,242,305,306],[307,306,305,304],[308,309,306,307],[246,245,306,309],[249,246,309,310],[311,310,309,308],[312,313,310,311],[250,249,310,313],[253,250,313,314],[315,314,313,312],[316,317,318,319],[254,257,318,317],[259,254,317,320],[321,320,317,316],[322,323,320,321],[260,259,320,323],[263,260,323,324],[325,324,323,322],[326,327,324,325],[264,263,324,327],[267,264,327,328],[329,328,327,326],[330,331,328,329],[268,267,328,331],[271,268,331,332],[333,332,331,330],[334,335,332,333],[272,271,332,335],[275,272,335,336],[337,336,335,334],[338,339,336,337],[276,275,336,339],[279,276,339,340],[341,340,339,338],[283,280,340,341],[280,221,279,340],[342,343,282,283],[344,343,342,345],[346,347,343,344],[284,282,343,347],[287,284,347,348],[349,348,347,346],[350,351,348,349],[288,287,348,351],[291,288,351,352],[353,352,351,350],[354,355,352,353],[292,291,352,355],[295,292,355,356],[357,356,355,354],[358,359,356,357],[296,295,356,359],[299,296,359,360],[361,360,359,358],[362,363,360,361],[300,299,360,363],[303,300,363,364],[365,364,363,362],[366,367,364,365],[304,303,364,367],[307,304,367,368],[369,368,367,366],[370,371,368,369],[308,307,368,371],[311,308,371,372],[373,372,371,370],[374,375,372,373],[312,311,372,375],[315,312,375,376],[377,376,375,374],[378,379,380,381],[316,319,380,379],[321,316,379,382],[383,382,379,378],[384,385,382,383],[322,321,382,385],[325,322,385,386],[387,386,385,384],[388,389,386,387],[326,325,386,389],[329,326,389,390],[391,390,389,388],[392,393,390,391],[330,329,390,393],[333,330,393,394],[395,394,393,392],[396,397,394,395],[334,333,394,397],[337,334,397,398],[399,398,397,396],[400,401,398,399],[338,337,398,401],[341,338,401,402],[403,402,401,400],[345,342,402,403],[342,283,341,402],[404,405,344,345],[406,405,404,407],[408,409,405,406],[346,344,405,409],[349,346,409,410],[411,410,409,408],[412,413,410,411],[350,349,410,413],[353,350,413,414],[415,414,413,412],[416,417,414,415],[354,353,414,417],[357,354,417,418],[419,418,417,416],[420,421,418,419],[358,357,418,421],[361,358,421,422],[423,422,421,420],[424,425,422,423],[362,361,422,425],[365,362,425,426],[427,426,425,424],[428,429,426,427],[366,365,426,429],[369,366,429,430],[431,430,429,428],[432,433,430,431],[370,369,430,433],[373,370,433,434],[435,434,433,432],[436,437,434,435],[374,373,434,437],[377,374,437,438],[439,438,437,436],[440,441,442,443],[378,381,442,441],[383,378,441,444],[445,444,441,440],[446,447,444,445],[384,383,444,447],[387,384,447,448],[449,448,447,446],[450,451,448,449],[388,387,448,451],[391,388,451,452],[453,452,451,450],[454,455,452,453],[392,391,452,455],[395,392,455,456],[457,456,455,454],[458,459,456,457],[396,395,456,459],[399,396,459,460],[461,460,459,458],[462,463,460,461],[400,399,460,463],[403,400,463,464],[465,464,463,462],[407,404,464,465],[404,345,403,464]]    ;

mid=sum(v)/length(v);
v=apply(v,(#-mid)*1.6);
use("Cindy3D");



mat=[
    [1,0,0],
    [0,1,0],
    [0,0,1]
    ];
mat=[[0.56,0.49,-0.67],[-0.52,-0.42,-0.74],[-0.65,0.76,0.02]];
mat0=[
    [1,0,0],
    [0,1,0],
    [0,0,1]
    ];



mmmx=mat0;
mmmy=mat0;




</script>


<script id='tick' type='text/x-cindyscript'>

</script>



<script id='csmove' type='text/x-cindyscript'>
y=S.y;
if(y<S1.y,y=S1.y);
if(y>S2.y,y=S2.y);

S.xy=(S1.x,y);

s1=(|S,S1|/|S1,S2|);


y=T.y;
if(y<T1.y,y=T1.y);
if(y>T2.y,y=T2.y);

T.xy=(T1.x,y);

al=(|T,T1|/|T1,T2|);

vv=apply(v,mat*#);

f=sort(f,fa,sum(fa,p,(vv_p)_3));

s1=3*exp(s1*5);

mapt(pt):=[pt_1,#_2]/(s1-#_3)*s1*6+(2,2);

apply(f,q,
      pol=apply(q,vv_#);
      d=sum(pol)_3*.2+1.0;
      n=cross(pol_1-pol_3,pol_2-pol_4);
      n=n/|n|;
      col=(0.4,0.4,.7);
      col=col+max(((n*(1,5,5)),0))*(.8,.6,.6)*.1;
      col=col+max(((n*(-1,5,5)),0))*(.6,.4,.6)*.1;
      pol=apply(pol,mapt(#));
      fillpoly(pol,color->(col-(0.5,0.5,0))*d,alpha->al);
      pol=pol++[pol_1];
      forall(1..4,draw(pol_#,pol_(#+1),size->2,color->col*d*.02));

      );

drawtext(S1-(1.8,1),size->16,"perspective");
drawtext(T1-(1,1),size->16,"alpha");


</script>


<script id='timer' type='text/x-cindyscript'>
wx=wx*0.998;
wy=wy*0.998;
wx=.01;
wy=.01;
sp=0.8;
mmmx=[
    [1,0,0],
    [0,cos(wx*sp),sin(wx*sp)],
    [0,-sin(wx*sp),cos(wx*sp)]

    ];


mmmy=[
    [cos(wy*sp),0,-sin(wy*sp)],
    [0,1,0],
    [sin(wy*sp),0,cos(wy*sp)]
    ];


mat=mmmx*mmmy*mat;
</script>

<div  id="CSCanvas" style="width:800px; height:600px; border:2px solid #000000"></div>

<script type="text/javascript">

var gslp=[
    {name:"A", kind:"P", type:"Free",alpha:0, pos:[-1000,-1000,1],alpha:.001} ,
    {name:"S1", type:"Free", pos:[16,-4],color:[0,0,0],pinned:true,size:2},
    {name:"S2", type:"Free", pos:[16,10],color:[0,0,0],pinned:true,size:2},
    {name:"S", type:"Free", pos:[16,1.5],color:[1,0.5,0.5],pinned:false,size:4,narrow:true},
    {name:"l", type:"Segment", args:["S1","S2"],color:[0,0,0],pinned:false,size:2},
     {name:"T1", type:"Free", pos:[20,-4],color:[0,0,0],pinned:true,size:2},
    {name:"T2", type:"Free", pos:[20,10],color:[0,0,0],pinned:true,size:2},
    {name:"T", type:"Free", pos:[20,8.5],color:[1,0.5,0.5],pinned:false,size:4,narrow:true},
    {name:"m", type:"Segment", args:["T1","T2"],color:[0,0,0],pinned:false,size:2}


    ];

CindyJS({canvasname:"CSCanvas",
movescript:"csmove",
initscript:"init",
mousedownscript:"mouseDown",
mouseupscript:"mouseUp",
tickscript:"timer",
mousedragscript:"mouseDrag",
geometry:gslp});


</script>

</body>
</html>
